function h=mycolorbar(x)

%MYCOLORBAR creates a colorbar for a range of values
%Syntax: mycolorbar(x)
%Description: uses an arbitrary range to create an image map with a
%                      vertical scale. Note x doesn't have to be regularly
%                      spaced or even monotonically spaced (although I
%                      can't imagine how non-monotonical scales could be
%                      useful. The output argument is the handle for the
%                      graphic object

h=imagesc(x);
G=get(h);
%set(G.Parent,'Position',[0.5 0.1100 0.2750 0.8150],'YDir','normal','XTick',[]);
set(G.Parent,'YDir','normal','XTick',[],'FontSize',6,'XTick',[],'YTick',[]);
%ylabel('Color Scheme')
%axis off
n=length(x);
for i=1:ceil(n/10):n
    text(0.5,i,[sprintf('%3.1f',x(i)),' '],'HorizontalAlign','right','FontSize',6)
end
    
    
title('outcome\newlinecolor\newlinescheme')


